home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / DATATYPE / ELEMENT2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-18  |  911b  |  25 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; polymorphic elements for abstract data types #2
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBDAT;
  10.  
  11. var Element1, Element2 : GenericLinkageObjectPointerType;
  12.     Data : string;
  13.  
  14. begin
  15.      Data := 'SOMETHING HERE';
  16.      New (Element1, Initialize (Data, SizeOf(Data)));
  17.      New (Element2, InitializeDuplicate (Element1));
  18.  
  19.      { Display the two elements }
  20.      Write ('"', String(Element1^.DataPointer(0)^), '" should be equal to "');
  21.      WriteLn (String(Element2^.DataPointer(0)^), '"');
  22.  
  23.      Element1^.Free; Element2^.Free;
  24.      if GlobalDataError then WriteLn ('Error(s) reported!');
  25. end.